home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / game / advgi / sample / wavsmpl.txt < prev   
Text File  |  1995-02-17  |  847b  |  58 lines
  1. このサンプルを実行するには以下の前準備が必要です。
  2. 外部コマンドＷＡＶＥを使用できるようにします。
  3. Ｔｏｗｎｓシステムソフトウェアに収録されている次の音声ファイルをウエーブ形式に変換してカレントディレクトリに置きます。
  4. AIKODE_F.SND
  5. AK_F.SND
  6. JANKEN_F.SND
  7. WK_F.SND
  8. PAUSE
  9. '
  10. string hand[1] グー
  11. string hand[2] チョキ
  12. string hand[3] パー
  13. '
  14. :start
  15.  
  16. じゃんけんポン！
  17. wave janken_f.wav
  18. :sel
  19. com=random(1,3)
  20.  
  21. １－グー
  22. ２－チョキ
  23. ３－パー
  24. select 3 m1 m2 m3
  25.  
  26. :aiko
  27. あいこでショ！
  28. wave aikode_f.wav
  29. goto sel
  30.  
  31. :m1
  32. %hand[com]%
  33. if com = 1 goto aiko
  34. if com = 2 goto win
  35. goto lose
  36.  
  37. :m2
  38. %hand[com]%
  39. if com = 2 goto aiko
  40. if com = 3 goto win
  41. goto lose
  42.  
  43. :m3
  44. %hand[com]%
  45. if com = 3 goto aiko
  46. if com = 1 goto win
  47. goto lose
  48.  
  49. :win
  50. あなたの勝ち～
  51. wave ak_f.wav
  52. goto start
  53.  
  54. :lose
  55. 私の勝ち～！
  56. wave wk_f.wav
  57. goto start
  58.